home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v10n15.arc
/
POW.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-08-09
|
373b
|
20 lines
{$N+,E+}
UNIT Pow;
(**) Interface (**)
FUNCTION Power(base, expon:Double):double;
(**) Implementation (**)
FUNCTION Power(base, expon:Double):double;
BEGIN
IF base <= 0 THEN
BEGIN
WriteLn('*** WARNING *** base muse be greater than zero');
power := 0;
END
ELSE
Power := Exp(expon*ln(base));
END;
END.